'   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '           N a m e :   M o v e S l o w X Y                                         D a t e :     1 2   F e b r a r y   2 0 2 0 
 
 '         S c o p e :   M o v e X Y   w i t h   C o r e X Y 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S T E P P E R   S L O T S 
 
 S l o t _ M o t o r A                 =     1 	 	 	 ' 1 _ T a b T s t e r X Y   p i n     1   S T E P P E R 
 
 S l o t _ M o t o r B                 =     3 	 	 	 ' 1 _ T a b T s t e r X Y   p i n     3   S T E P P E R 
 
 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S T A R T 
 
 S p e e d   9 
 
 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   B U T T O N S 
 
 B u t t o n   1   T e x t   M o v e   1 0 _ 1 0 _ 1 0 0 _ 1 0 0 
 
 B u t t o n   2   T e x t   M o v e   1 0 _ 1 0 0 _ 1 0 0 _ 1 0 
 
 B u t t o n   4   T e x t   M o v e   0 _ 0 _ 0 _ 1 0 0 
 
 
 
 S t o p 
 
 
 
 L a b e l   M o v e   1 0 _ 1 0 _ 1 0 0 _ 1 0 0 
 
 	 D e s t X   =   1 0 
 
 	 D e s t Y   =   1 0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 M o v e S l o w X Y _ D e s t X   =   1 0 0 
 
 	 M o v e S l o w X Y _ D e s t Y   =   1 0 0 
 
 	 M o v e S l o w X Y _ S p e e d   =   1 0 0 
 
 	 G o s u b   M o v e S l o w X Y 
 
 R e t u r n 
 
 
 
 L a b e l   M o v e   1 0 _ 1 0 0 _ 1 0 0 _ 1 0 
 
 	 D e s t X   =   1 0 
 
 	 D e s t Y   =   1 0 0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 M o v e S l o w X Y _ D e s t X   =   1 0 0 
 
 	 M o v e S l o w X Y _ D e s t Y   =   0 
 
 	 M o v e S l o w X Y _ S p e e d   =   1 0 0 
 
 	 G o s u b   M o v e S l o w X Y 
 
 R e t u r n 
 
 
 
 L a b e l   M o v e   0 _ 0 _ 0 _ 1 0 0 
 
 	 D e s t X   =   0 
 
 	 D e s t Y   =   0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 M o v e S l o w X Y _ D e s t X   =   0 
 
 	 M o v e S l o w X Y _ D e s t Y   =   1 0 0 
 
 	 M o v e S l o w X Y _ S p e e d   =   1 0 0 
 
 	 G o s u b   M o v e S l o w X Y 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     C O R E   X Y 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   D e s t X 	 	 	 	 '   d e s t i n a t i o n   i n   m m   c o o r d s 
 
 V a r i a b l e   N u m e r i c   D e s t Y 	 	 	 	 '   d e s t i n a t i o n   i n   m m   c o o r d s 
 
 
 
 V a r i a b l e   N u m e r i c   S l o t _ M o t o r A 
 
 V a r i a b l e   N u m e r i c   S l o t _ M o t o r B 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t   '   m o v e   t o   d e s t X   &   d e s t Y   a n d   w a i t   s t o p   m o t o r s 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y 	 	 	 '   m o v e   t o   d e s t X   &   d e s t Y 
 
 	 G o s u b   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 S l o t ( S l o t _ M o t o r A )   =   C o r e A 
 
 	 S l o t ( S l o t _ M o t o r B )   =   C o r e B 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ S e t N e w Z e r o 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - -   R e s e t   a x i s   X   a n d   Y 
 
 	 S l o t ( S l o t _ M o t o r A )   =   R e s e t 
 
 	 S l o t ( S l o t _ M o t o r B )   =   R e s e t 
 
 	 W a i t   S e c o n d s   0 . 1 5 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   S e t   r e s e t   v a l u e s   w i t h   C o r e X Y   c o r r e c t i o n 
 
 	 D e s t X   =   0 
 
 	 D e s t Y   =   0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 V a r i a b l e   N u m e r i c   C o r e A 
 
 V a r i a b l e   N u m e r i c   C o r e B 
 
 
 
 L a b e l   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 C o r e A   =   ( D e s t X   -   D e s t Y )   /   2 
 
 	 C o r e B   =   ( D e s t X   +   D e s t Y )   /   2 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     W A I T   u n t i l   t h e   m o t o r s   A   a n d   B   a r e   s t o p p e d 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   W a i t M o t o r s 
 
 	 W a i t   S e c o n d s   0 . 1   '   t h i s   e n s u r e s   t h a t   t h e   m o t o r s   a r e   r u n n i n g 
 
 	 L a b e l   W a i t M o t o r s 1 
 
 	 	 I f   A b s ( S l o t ( S l o t _ M o t o r A   +   1 ) )   <   0 . 0 1 
 
 	 	 	 I f   A b s ( S l o t ( S l o t _ M o t o r B   +   1 ) )   <   0 . 0 1 
 
 	 	 	 	 R e t u r n 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 G o t o   W a i t M o t o r s 1 
 
 G o t o   W a i t M o t o r s 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   M O V E   S L O W 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ D e s t X   	 '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ D e s t Y   	 '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ S p e e d   	 '   s p e e d   i n   m m / s e c 
 
 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ V 1 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ V 2 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ V 3 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ V 4 
 
 
 
 L a b e l   M o v e S l o w X Y 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t e s t   f o r   v e r y   l o w   s p e e d 
 
 	 I f   M o v e S l o w X Y _ S p e e d   <   0 . 0 1 
 
 	 	 M o v e S l o w X Y _ S p e e d   =   1 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 M o v e S l o w X Y _ V 1   =   M o v e S l o w X Y _ D e s t X   -   D e s t X 
 
 	 M o v e S l o w X Y _ V 2   =   M o v e S l o w X Y _ D e s t Y   -   D e s t Y 
 
 	 M o v e S l o w X Y _ V 3   =   M o v e S l o w X Y _ V 1   *   M o v e S l o w X Y _ V 1 
 
 	 M o v e S l o w X Y _ V 3   =   M o v e S l o w X Y _ V 3   +   M o v e S l o w X Y _ V 2   *   M o v e S l o w X Y _ V 2 
 
 	 M o v e S l o w X Y _ V 3   =   S q r t ( M o v e S l o w X Y _ V 3 ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 M o v e S l o w X Y _ V 4   =   M o v e S l o w X Y _ V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 M o v e S l o w X Y _ V 4   =   I n t ( M o v e S l o w X Y _ V 4   /   M o v e S l o w X Y _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 M o v e S l o w X Y _ V 1   =   ( M o v e S l o w X Y _ D e s t X   -   D e s t X )   /   M o v e S l o w X Y _ V 4 
 
 	 M o v e S l o w X Y _ V 2   =   ( M o v e S l o w X Y _ D e s t Y   -   D e s t Y )   /   M o v e S l o w X Y _ V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   M o v e S l o w X Y _ V 3   =   1   T o   M o v e S l o w X Y _ V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   i n c r e m e n t ,   m o v e   a n d   w a i t 
 
 	 	 D e s t X   =   D e s t X   +   M o v e S l o w X Y _ V 1 
 
 	 	 D e s t Y   =   D e s t Y   +   M o v e S l o w X Y _ V 2 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 
 
 ' W A T C H   M o v e S l o w X Y _ S p e e d 
 
 ' W A T C H   M o v e S l o w X Y _ V 1 
 
 ' W A T C H   M o v e S l o w X Y _ V 2 
 
 ' W A T C H   D e s t X 
 
 ' W A T C H   D e s t Y 
 
 ' W A T C H   M o v e S l o w X Y _ D e s t Y 
 
 ' W A T C H   M o v e S l o w X Y _ V 4 
 
 